home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / parint.arc / PARINT.BAS next >
BASIC Source File  |  1985-01-24  |  3KB  |  63 lines
  1. 100 '  PARINT.BAS -- creates PARINT.COM parity disabler
  2. 110 '
  3. 120 '      ***  Setup and check typing of DATA statements ***
  4. 130 '
  5. 140 DEFINT A-X:CLS:KEY OFF:DIM YY(30)
  6. 150 PRINT "Wait -- checking DATA statements for accuracy . . ."
  7. 160 FOR U=1 TO 29:READ T:YY(U)=T:Y=Y+T:NEXT:IF Y=37870! THEN 180
  8. 170 PRINT "Check your typing in lines 400-420 then restart.":END
  9. 180 FOR I=1 TO 29
  10. 190 TOTAL = 0
  11. 200 FOR G=1 TO 16
  12. 210 READ J$:H=VAL("&H"+J$)
  13. 220 TOTAL=TOTAL+H
  14. 230 NEXT
  15. 240 IF TOTAL=YY(I) THEN 260
  16. 250 PRINT "Check your typing in line";I*10+420;"then restart.":END
  17. 260 NEXT
  18. 270 RESTORE 430:PRINT "Data is okay -- now writing to disk . . ."
  19. 280 '
  20. 290 '  *** Re-read Data and creat PARINT.COM disk file ***
  21. 300 '
  22. 310 OPEN "PARINT.COM" FOR OUTPUT AS #1
  23. 320 FOR I=1 TO 451
  24. 330 READ Z$:PRINT #1,CHR$(VAL("&H"+Z$));
  25. 340 NEXT:CLOSE
  26. 350 PRINT "PARINT.COM created -- Now get into DOS and run it."
  27. 360 END
  28. 370 '
  29. 380 ' *** DATA ***
  30. 390 '
  31. 400 DATA 1318,1268,1101,1126,1459,797,602,827,1096,1010
  32. 410 DATA 1971,1510,2283,1341,1715,1870,1571,1691,1235,1125
  33. 420 DATA 2063,1155,1136,1370,1003,1476,1170,1335,246
  34. 430 DATA E9,47,01,FB,E9,92,00,90,EA,00,00,00,00,04,00,01
  35. 440 DATA 00,0D,0A,50,61,72,69,74,79,20,45,72,72,6F,72,3A
  36. 450 DATA 20,4D,61,69,6E,20,42,6F,61,72,64,20,20,20,20,20
  37. 460 DATA 07,0D,0A,0D,0A,50,61,72,69,74,79,20,45,72,72,6F
  38. 470 DATA 72,3A,20,45,78,70,61,6E,73,69,6F,6E,20,42,6F,61
  39. 480 DATA 72,64,07,0D,0A,20,20,20,20,54,49,4D,45,3A,20,20
  40. 490 DATA 30,30,3A,30,30,20,20,20,20,20,20,20,20,20,20,20
  41. 500 DATA 20,20,20,20,20,0D,0A,50,41,52,49,54,59,20,43,48
  42. 510 DATA 45,43,4B,49,4E,47,20,4E,4F,57,20,44,49,53,41,42
  43. 520 DATA 4C,45,44,20,20,20,0D,0A,0A,51,1E,9C,52,53,50,9C
  44. 530 DATA B0,00,E6,A0,33,C9,E4,62,A8,40,74,06,BA,33,01,EB
  45. 540 DATA 16,90,A8,80,74,06,BA,11,01,EB,0C,90,81,C9,01,00
  46. 550 DATA B0,80,E6,A0,EB,23,90,8C,C8,8E,D8,E8,4C,00,8B,1E
  47. 560 DATA 0D,01,83,FB,04,75,03,E8,22,00,E8,33,00,BA,55,01
  48. 570 DATA E8,2D,00,BA,77,01,E8,27,00,9D,58,5B,5A,9D,1F,F7
  49. 580 DATA C1,01,00,75,02,59,CF,FA,59,E9,0B,FF,52,50,33,D2
  50. 590 DATA B4,02,CD,17,F6,C4,29,74,04,8B,1E,0F,01,58,5A,C3
  51. 600 DATA 51,B9,22,00,B4,40,CD,21,59,C3,51,52,B4,2C,CD,21
  52. 610 DATA 8A,C5,E8,1C,00,C7,06,60,01,30,30,01,06,60,01,8A
  53. 620 DATA C1,E8,0D,00,C7,06,63,01,30,30,01,06,63,01,5A,59
  54. 630 DATA C3,32,E4,51,B1,0A,F6,F1,59,C3,EB,45,90,0D,0A,50
  55. 640 DATA 41,52,49,54,59,20,45,52,52,4F,52,20,49,4E,54,45
  56. 650 DATA 52,43,45,50,54,4F,52,20,76,32,2E,30,30,20,62,79
  57. 660 DATA 20,44,61,76,69,64,20,48,75,6E,74,65,72,20,49,53
  58. 670 DATA 20,4E,4F,57,20,49,4E,53,54,41,4C,4C,45,44,0D,0A
  59. 680 DATA 24,BA,4D,02,B4,09,CD,21,1E,B8,00,00,8E,D8,B0,00
  60. 690 DATA E6,A0,A1,08,00,2E,A3,09,01,A1,0A,00,2E,A3,0B,01
  61. 700 DATA C7,06,08,00,03,01,8C,0E,0A,00,B0,80,E6,A0,BA,4A
  62. 710 DATA 02,CD,27,00,00,00,00,00,00,00,00,00,00,00,00,00
  63.